﻿Imports Microsoft.VisualBasic

Public Class Calendar
#Region "Constants"
    Protected Const _calID As String = "calID"
    Protected Const _UserID As String = "UserID"
    Protected Const _ReasonID As String = "ReasonID"
    Protected Const _StartDate As String = "StartDate"
    Protected Const _EndDate As String = "End"
    Protected Const _StatusID As String = "StatusID"
    Protected Const _ParentID As String = "ParentID"
#End Region
#Region "Private"
    Private intCalID As Integer = 0
    Private intUserID As Integer = 0
    Private intReasonID As Integer = 0
    Private intStatusID As Integer = 0
    Private intcdID As Integer = 0
    Private dtStart, dtEnd As Date
#End Region
#Region "Public"
    Public Property CalID() As Integer
        Get
            Return intCalID
        End Get
        Set(ByVal value As Integer)
            intCalID = value
        End Set
    End Property
    Public Property UserID() As Integer
        Get
            Return intUserID
        End Get
        Set(ByVal value As Integer)
            intUserID = value
        End Set
    End Property
    Public Property ReasonID() As Integer
        Get
            Return intReasonID
        End Get
        Set(ByVal value As Integer)
            intReasonID = value
        End Set
    End Property
    Public Property StatusID() As Integer
        Get
            Return intStatusID
        End Get
        Set(ByVal value As Integer)
            intStatusID = value
        End Set
    End Property
    Public Property StartDate() As Date
        Get
            Return dtStart
        End Get
        Set(ByVal value As Date)
            dtStart = value
        End Set
    End Property
    Public Property EndDate() As Date
        Get
            Return dtEnd
        End Get
        Set(ByVal value As Date)
            dtEnd = value
        End Set
    End Property
    Public Property CdID() As Integer
        Get
            Return intcdID
        End Get
        Set(ByVal value As Integer)
            intcdID = value
        End Set
    End Property
#End Region

End Class
